<%Session.LCID = 1046%>
<%
'Script de limpeza de cache na maquina do servidor
Response.Expires = 0 
Response.ExpiresAbsolute = Now() - 1 
pStr = "private, no-cache, must-revalidate" 
Response.AddHeader "pragma", "no-cache" 
Response.AddHeader "cache-control", pStr 
Response.CacheControl = "no-cache" 
'... conteudo da pag... 

Const Banco_Geral = "newbarbolao_geral"
Const Banco_Individuais = "newbarbolao_individuais"
Const Banco_Clubes = "newbarbolao_clubes"
Const Banco_Selecoes = "newbarbolao_clubes"
Const Banco_Mensagens = "newbarbolao_mensagens"
Const Banco_Registros = "newbarbolao_registros"

DIM conexao_geral
DIM conexao_individuais
DIM conexao_clubes
DIM conexao_selecoes
DIM conexao_mensagens
DIM conexao_registros
DIM conexao_aux

Const MAX_Usuarios = 100000
Const MAX_Mensagens = 1000
Const MAX_Torneios = 100000
Const MAX_Grupos = 1000
Const MAX_Lista = 1000
Const MAX_Cores = 50
Const MAX_Jogadores = 50
Const MAX_Ranking_pagina = 50

Const TIME_Mensagem_Painel = 20000
Const TIME_Mensagem_Mural = 5000

Dim objCDOSYSMail
Dim objCDOSYSCon

DIM css, script
css=""
script=""

Const ORDEM_Ranking = "vitorias*3+empates+premios desc, vitorias desc, golspros-golscontras desc, golspros desc, id_clube asc"

DIM clubes_posicoes(5)
clubes_posicoes(1)="Goleiro"
clubes_posicoes(2)="Fixo"
clubes_posicoes(3)="Ala Direito"
clubes_posicoes(4)="Ala Esquerdo"
clubes_posicoes(5)="Pivô"
clubes_posicoes(0)="Reserva"

DIM Endereco_Raiz
Endereco_Raiz = request.serverVariables("APPL_PHYSICAL_PATH")

Const Titulo = "Barbolão"

%><!-- #include file="conexao.asp" --><%
%><!-- #include file="apostas/default.asp" --><%
%><!-- #include file="clubes/default.asp" --><%
%><!-- #include file="conquistas/default.asp" --><%
%><!-- #include file="dinheiro/default.asp" --><%
%><!-- #include file="feeds/default.asp" --><%
%><!-- #include file="ferramentas/default.asp" --><%
%><!-- #include file="individuais/default.asp" --><%
%><!-- #include file="interface/default.asp" --><%
%><!-- #include file="mensagens/default.asp" --><%
%><!-- #include file="mercado/default.asp" --><%
%><!-- #include file="painel/funcoes/default.asp" --><%
%><!-- #include file="ranking/default.asp" --><%
%><!-- #include file="rodada/default.asp" --><%
%><!-- #include file="sql/default.asp" --><%
%><!-- #include file="torcida/default.asp" --><%
%><!-- #include file="torneio/default.asp" --><%
%><!-- #include file="usuario/default.asp" --><%


Call AbreConexao

Server.ScriptTimeout = 180

DIM opcao

str = "Select * FROM cores_css where cor_1='3' AND cor_2='1' AND cor_3='0'"
Set rsCor = conexao_geral.Execute(str)

DIM cor_fundo, cor_corpo, cor_texto, cor_sombra, cor_rodape, cor_pasta, cor_fundo_img

cor_fundo = rsCor("fundo")
cor_corpo = rsCor("corpo")
cor_texto = rsCor("texto")
cor_sombra = rsCor("sombra")
cor_rodape = rsCor("rodape")
cor_pasta = rsCor("pasta")
cor_fundo_img = rsCor("fundo_img")
escudo_fundo=41


'FUNCOES DE ROINA
atualizar_ultimo_login
login_finalizar_sessoes

%>